#!/usr/bin/perl

use utf8;
use strict;
use warnings;
use 5.010001;

while ( <> ) {
	chomp;

	given ( $_ ) {
		when ( ($_ % 3) eq 0 ) { print 'Fizz '; continue }
		when ( ($_ % 5) eq 0 ) { print 'Bin'; continue }
		when ( ($_ % 7) eq 0 ) { print 'Sausage '; }
		when ( 1 eq 1 ) { }
	}
}